home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesJ-M.lzh / MervTheMerciless.lha / Install next >
Text File  |  1980-11-13  |  2KB  |  120 lines
  1. ;****************************
  2.  
  3. (set #readme-file "README") ;name of readme file
  4.  
  5.  
  6. ;****************************
  7. ;----------------------------
  8. ; Checks if given program is reachable via the path
  9. ; if not abort install
  10. ; IN:  #program - to check
  11. ; OUT: -
  12.  
  13. (procedure P_chkrun
  14.   (if
  15.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  16.     ("")
  17.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  18.   )
  19. )
  20.  
  21. ;----------------------------
  22. ; Create disk-Image using DIC
  23. ; IN:  #dest        - DestinationPath
  24. ;      #CI_diskname - DiskName
  25. ;      #CI_diskno   - DiskNumber
  26. ;      #CI_drive    - DriveToReadFrom
  27. ; OUT: -
  28.  
  29. (procedure P_image
  30.   (message ("Please ensure that the MERV GAME archive from WHDLoad.DE has been unpacked to RAM: before continuing!"))
  31.  
  32. )
  33.  
  34. ;****************************
  35.  
  36. (if
  37.   (exists #readme-file)
  38.   (if
  39.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  40.     ("")
  41.     (run ("SYS:Utilities/More %s" #readme-file))
  42.   )
  43. )
  44.  
  45. (set #program "WHDLoad")
  46. (P_chkrun)
  47.  
  48. (set @default-dest
  49.   (askdir
  50.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  51.     (help @askdir-help)
  52.     (default @default-dest)
  53.     (disk)
  54.   )
  55. )
  56. (set #dest (tackon @default-dest @app-name))
  57. (if
  58.   (exists #dest)
  59.   (
  60.     (set #choice
  61.       (askbool
  62.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  63.         (default 1)
  64.         (choices "Delete" "Skip")
  65.         (help @askbool-help)
  66.       )
  67.     )
  68.     (if
  69.       (= #choice 1)
  70.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  71.     )
  72.   )
  73. )
  74. (makedir #dest
  75.   (help @makedir-help)
  76.   (infos)
  77. )
  78.  
  79. ;----------------------------
  80.  
  81. (copyfiles
  82.   (help @copyfiles-help)
  83.   (source ("Merv.slave" @app-name))
  84.   (dest #dest)
  85. )
  86. (copyfiles
  87.   (help @copyfiles-help)
  88.   (source ("Merv.info"))
  89.   (dest #dest)
  90. )
  91. (copyfiles
  92.   (help @copyfiles-help)
  93.   (source ("RAM:MERV.BIN"))
  94.   (dest #dest)
  95. )
  96. (if
  97.   (exists #readme-file)
  98.   (copyfiles
  99.     (help @copyfiles-help)
  100.     (source #readme-file)
  101.     (dest #dest)
  102.   )
  103. )
  104. (if
  105.   (exists ("%s.info" #readme-file))
  106.   (copyfiles
  107.     (help @copyfiles-help)
  108.     (source ("%s.info" #readme-file))
  109.     (dest #dest)
  110.   )
  111. )
  112.  
  113.  
  114. (P_image)
  115.  
  116. ;----------------------------
  117.  
  118. (exit)
  119.  
  120.